home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / apb17.zip / SIREN.BAS < prev    next >
BASIC Source File  |  1991-01-23  |  284b  |  20 lines
  1.  
  2. '    This program makes the sound of a siren until
  3. '    any key is pressed.
  4. '
  5. DefInt A-Z
  6. $include "sound.inc"
  7.  
  8. Sub DoSiren
  9.     For Freq=500 to 2000 step 25
  10.         sound Freq,1
  11.     Next
  12.     For Freq=2000 to 500 Step -25
  13.         sound Freq,1
  14.     Next
  15. End Sub
  16.  
  17. Do
  18.     DoSiren
  19. Loop until Len(Inkey$)
  20.